home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / Dev / Oberon / source / amiga / MathIEEESingTrans.mod < prev    next >
Text File  |  1995-06-29  |  3KB  |  138 lines
  1. (**************************************************************************
  2.  
  3.      $RCSfile: MathIEEESingTrans.mod $
  4.   Description: Interface to mathieeesingtrans.library
  5.  
  6.    Created by: fjc (Frank Copeland)
  7.     $Revision: 3.8 $
  8.       $Author: fjc $
  9.         $Date: 1995/06/04 23:13:14 $
  10.  
  11.   $VER: mathieeesingtrans_protos.h 1.3 (7.11.90)
  12.   Includes Release 40.15
  13.  
  14.   (C) Copyright 1985-1993 Commodore-Amiga, Inc.
  15.       All Rights Reserved
  16.  
  17.   Oberon-A interface Copyright © 1994-1995, Frank Copeland.
  18.   This file is part of the Oberon-A Interface.
  19.   See Oberon-A.doc for conditions of use and distribution.
  20.  
  21. ***************************************************************************)
  22.  
  23. <* STANDARD- *>
  24.  
  25. MODULE [2] MathIEEESingTrans;
  26.  
  27. IMPORT SYS := SYSTEM, Kernel, e := Exec, m := MathLibrary;
  28.  
  29.  
  30. (*-- MathIEEESingTrans Base variable --------------------------------------*)
  31.  
  32. CONST
  33.  
  34.   mathIEEESingTransName * = "mathieeesingtrans.library";
  35.  
  36. VAR
  37.  
  38.   base * : m.MathIEEEBasePtr;
  39.  
  40.  
  41. (*-- Library Functions ------------------------------------------------*)
  42.  
  43. PROCEDURE Atan* [base,-30]
  44.   ( parm [0] : REAL )
  45.   : REAL;
  46.  
  47. PROCEDURE Sin* [base,-36]
  48.   ( parm [0] : REAL )
  49.   : REAL;
  50.  
  51. PROCEDURE Cos* [base,-42]
  52.   ( parm [0] : REAL )
  53.   : REAL;
  54.  
  55. PROCEDURE Tan* [base,-48]
  56.   ( parm [0] : REAL )
  57.   : REAL;
  58.  
  59. PROCEDURE Sincos* [base,-54]
  60.   ( VAR cos[8] : REAL;
  61.     parm [0]   : REAL )
  62.    : REAL;
  63.  
  64. PROCEDURE Sinh* [base,-60]
  65.   ( parm [0] : REAL )
  66.   : REAL;
  67.  
  68. PROCEDURE Cosh* [base,-66]
  69.   ( parm [0] : REAL )
  70.   : REAL;
  71.  
  72. PROCEDURE Tanh* [base,-72]
  73.   ( parm [0] : REAL )
  74.   : REAL;
  75.  
  76. PROCEDURE Exp* [base,-78]
  77.   ( parm [0] : REAL )
  78.   : REAL;
  79.  
  80. PROCEDURE Log* [base,-84]
  81.   ( parm [0] : REAL )
  82.   : REAL;
  83.  
  84. PROCEDURE Pow* [base,-90]
  85.   ( exp  [1] : REAL;
  86.     parm [0] : REAL )
  87.   : REAL;
  88.  
  89. PROCEDURE Sqrt* [base,-96]
  90.   ( parm [0] : REAL )
  91.   : REAL;
  92.  
  93. PROCEDURE Tieee* [base,-102]
  94.   ( parm [0] : REAL )
  95.   : REAL;
  96.  
  97. PROCEDURE Fieee* [base,-108]
  98.   ( parm [0] : REAL )
  99.   : REAL;
  100.  
  101. PROCEDURE Asin* [base,-114]
  102.   ( parm [0] : REAL )
  103.   : REAL;
  104.  
  105. PROCEDURE Acos* [base,-120]
  106.   ( parm [0] : REAL )
  107.   : REAL;
  108.  
  109. PROCEDURE Log10* [base,-126]
  110.   ( parm [0] : REAL )
  111.   : REAL;
  112.  
  113. (*-- Library Base variable --------------------------------------------*)
  114.  
  115. <*$LongVars-*>
  116.  
  117. (*-----------------------------------*)
  118. PROCEDURE* [0] CloseLib (VAR rc : LONGINT);
  119.  
  120. BEGIN (* CloseLib *)
  121.   IF base # NIL THEN e.CloseLibrary (base) END;
  122. END CloseLib;
  123.  
  124. (*-----------------------------------*)
  125. PROCEDURE [0] OpenLib * (mustOpen : BOOLEAN);
  126.  
  127. BEGIN (* OpenLib *)
  128.   IF base = NIL THEN
  129.   END;
  130. END OpenLib;
  131.  
  132. BEGIN
  133.   base := SYS.VAL(m.MathIEEEBasePtr,
  134.                   e.OpenLibrary (mathIEEESingTransName, e.libraryMinimum));
  135.   IF base = NIL THEN HALT (100) END;
  136.   Kernel.SetCleanup (CloseLib)
  137. END MathIEEESingTrans.
  138.